﻿Imports BUS
Imports DTO
Public Class UserControlTiepNhanSo

    Private Sub UserControlTiepNhanphieu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ltkBUS As New LoaiTietKiemBUS()
        Dim dsltk As New List(Of LoaiTietKiemDTO)()
        dsltk = LoaiTietKiemBUS.LayLoaiTietKiem()
        cbbLoaiTietKiem.DataSource = dsltk
        cbbLoaiTietKiem.DisplayMember = "TenLoaiTietKiem"
        cbbLoaiTietKiem.ValueMember = "MaLoaiTietKiem"
        cbbLoaiTietKiem.SelectedValue = 0
        Dim stkBUS As New SoTietKiemBUS()
        txtMaSo.Text = (stkBUS.LayMaSoTietKiemMax() + 1).ToString()
        Dim gtdsBUS As New GiaTriDinhSanBUS()
        Dim gtdsDTO As New GiaTriDinhSanDTO()
        gtdsDTO = gtdsBUS.LayGiaTriDinhSan()
        cbbLoaiTietKiem.SelectedValue = gtdsDTO.LoaiTietKiem

    End Sub

    Private Sub btnTiepNhan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTiepNhan.Click
        If cbbLoaiTietKiem.SelectedValue = 0 Then
            MessageBox.Show("Chưa chọn loại tiết kiệm")
            cbbLoaiTietKiem.Focus()
            Return
        End If
        Dim temp As Double = 0
        If Double.TryParse(txtSoTienGui.Text, temp) = False Then
            MessageBox.Show("Số tiền gởi không hợp lệ")
            txtSoTienGui.Focus()
            Return
        End If
        If txtCMND.Text.Length <> 12 Then
            MessageBox.Show("Chưa nhập CMND ")
            txtCMND.Focus()
            Return
        End If
        If txtKhachHang.Text = "" Then
            MessageBox.Show("Chưa nhập tên khách hàng")
            txtKhachHang.Focus()
            Return
        End If
        If txtDiaChi.Text = "" Then
            MessageBox.Show("Chưa nhập địa chỉ ")
            txtDiaChi.Focus()
            Return
        End If
        Dim tsBUS As New ThamSoBUS()
        Dim tsDTO As New ThamSoDTO()
        tsDTO = tsBUS.LayBangThamSo()
        Dim kt As Boolean = tsBUS.KiemTraSoTienGoiToiThieu(temp, tsDTO.SoTienGoiToiThieu)
        If kt = False Then
            MessageBox.Show("Số tiền gởi tối thiểu là : " & tsDTO.SoTienGoiToiThieu.ToString())
            Return
        End If
        Dim stkBUS As New SoTietKiemBUS()
        Dim khBUS As New KhachHangBUS()
        Dim khDTO As New KhachHangDTO()
        khDTO.TenKH = txtKhachHang.Text
        khDTO.CMND = txtCMND.Text
        khDTO.DiaChi = txtDiaChi.Text

        Dim makh As Integer = khBUS.ThemKhachHang(khDTO)
        If makh = 0 Then
            MessageBox.Show("Tiếp nhận thất bại")
            Return
        Else
            Dim stkDTO As New SoTietKiemDTO()
            stkDTO.MaLoaiTietKiem = cbbLoaiTietKiem.SelectedValue
            stkDTO.MaKH = makh
            stkDTO.SoTienGoi = Convert.ToDouble(txtSoTienGui.Text)
            stkDTO.SoDu = Convert.ToDouble(txtSoTienGui.Text)
            stkDTO.MaTinhTrangSoTietKiem = 1
            stkDTO.NgayMoSo = dtpNgayMoSo.Value
            Dim i As Integer = stkBUS.ThemSoTietKiem(stkDTO)
            If i = 1 Then
                MessageBox.Show("Tiếp nhận thành công")
            Else
                MessageBox.Show("Tiếp nhận thất bại")
                Return
            End If

            txtKhachHang.Text = ""
            txtCMND.Text = ""
            txtDiaChi.Text = ""
            txtSoTienGui.Text = ""
            txtMaSo.Text = (stkBUS.LayMaSoTietKiemMax() + 1).ToString()
        End If

    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click


    End Sub
End Class
